home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Misc / FLM / otherfiles / deutsch / ARexx / edward_take.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-01  |  1KB  |  34 lines
  1. /* Dieser Script holt Übersetzung von FLM und schreibt sie an aktuelle
  2.    Cursor-Position
  3.  
  4.    Um diesen Script über eine Tastenkombination aufzurufen, laden Sie
  5.    die Datei "Edward.DEF" im Edward-Verzeichnis. Gehen Sie nun mit dem Cursor
  6.    an die Stelle "Keybordbelegungen" (befindet sich nach den
  7.    Menü-Einstellungen) und fügen folgende Zeile z.B. nach "(CTRL" ein.
  8.  
  9.    <Taste> (ExecRexx "<Datei>")
  10.  
  11.    <Taste>:Hier müssen Sie die Taste eingeben, mit der Sie diesen Script
  12.            aufrufen möchten, z.B. F9
  13.    <Datei>:Hier müssen Sie den Namen dieser Datei und ihren Pfad angeben.
  14.  
  15.    Bsp.: F9    (ExecRexx "edward_look.rexx")
  16.  
  17.    Nach obigem Beispiel wird nun durch Ctrl+F9 die Übersetzung an die
  18.    aktuelle Cursor-Position geschrieben.
  19.  
  20. -> Beachten Sie, daß die Programme FLM und RexxMast aktiv sind !!!
  21. */
  22.  
  23. Options RESULTS
  24.  
  25. Address FLM TAKEWORD /*Übersetzung in Variable RESULT*/
  26.  
  27. If Symbol('RESULT')='LIT' Then Exit /*Ist RESULT definiert ?*/
  28.  
  29. a=Insert('"',"Address EDWARD 'insertchars "RESULT"'",28)
  30. a=Insert('"',a,29+Length(RESULT))
  31.  
  32. Interpret a /*Zeichenkette a als Befehl ausführen*/
  33.  
  34.